## Recode variables
# Gender, male
dat$gender <- ifelse(dat$qS1 == "Мужской", 1, 0)

# Age
dat$age <- dat$qS2 

# Education 
table(dat$qS3)
dat$education <- rep(NA, nrow(dat))
dat$education[dat$qS3=="начальное или ниже, неполная средняя школа (7-8, сейчас 9 классов)"] <- 1
dat$education[dat$qS3=="средняя школа (10, сейчас 11 классов)"] <- 2
dat$education[dat$qS3=="начальное профессиональное образование"] <- 3
dat$education[dat$qS3=="среднее профессиональное образование"] <- 4
dat$education[dat$qS3=="незаконченное высшее (не менее 3-х курсов вуза)"] <- 5
dat$education[dat$qS3=="высшее"] <- 6

# Putin voter 
dat$qd1b[is.na(dat$qd1b)] <- 0
dat$putin_voter <- ifelse(dat$qd1b == "4", 1, 0)
table(dat$putin_voter)

# Moscow/ St Petersburg 
table(dat$qOBL)
dat$msp <- ifelse(dat$qOBL == "Москва" 
                  | dat$qOBL == "С-Петербург", 1, 0)

#Family better off 
dat$econ_status <- ifelse(dat$qd8 == "1" 
                          | dat$qd8 == "2",  0, 1)
table(dat$econ_status)

#Experimental groups indicators 
table(dat$qVAR)

dat$unauthorised <- rep(NA, nrow(dat))
dat$unauthorised[dat$qVAR=="1"] <- 0
dat$unauthorised[dat$qVAR=="2"] <- 0
dat$unauthorised[dat$qVAR=="3"] <- 0
dat$unauthorised[dat$qVAR=="4"] <- 0
dat$unauthorised[dat$qVAR=="5"] <- 1
dat$unauthorised[dat$qVAR=="6"] <- 1
dat$unauthorised[dat$qVAR=="7"] <- 1
dat$unauthorised[dat$qVAR=="8"] <- 1
table(dat$unauthorised)

dat$violent <- rep(NA, nrow(dat))
dat$violent[dat$qVAR=="1"] <- 0
dat$violent[dat$qVAR=="2"] <- 0
dat$violent[dat$qVAR=="3"] <- 1
dat$violent[dat$qVAR=="4"] <- 1
dat$violent[dat$qVAR=="5"] <- 0
dat$violent[dat$qVAR=="6"] <- 0
dat$violent[dat$qVAR=="7"] <- 1
dat$violent[dat$qVAR=="8"] <- 1
table(dat$violent)

dat$arrest <- rep(NA, nrow(dat))
dat$arrest[dat$qVAR=="1"] <- 0
dat$arrest[dat$qVAR=="2"] <- 1
dat$arrest[dat$qVAR=="3"] <- 0
dat$arrest[dat$qVAR=="4"] <- 1
dat$arrest[dat$qVAR=="5"] <- 0
dat$arrest[dat$qVAR=="6"] <- 1
dat$arrest[dat$qVAR=="7"] <- 0
dat$arrest[dat$qVAR=="8"] <- 1
table(dat$arrest)

dat$added_tactics <- rep(NA, nrow(dat))
dat$added_tactics[dat$qVAR=="1"] <- 1
dat$added_tactics[dat$qVAR=="2"] <- 1
dat$added_tactics[dat$qVAR=="3"] <- 2
dat$added_tactics[dat$qVAR=="4"] <- 2
dat$added_tactics[dat$qVAR=="5"] <- 3
dat$added_tactics[dat$qVAR=="6"] <- 3
dat$added_tactics[dat$qVAR=="7"] <- 4
dat$added_tactics[dat$qVAR=="8"] <- 4
table(dat$added_tactics)

#Outcomes 
#Authorities 
dat$supp_auth2 <- rep(NA, nrow(dat))
dat$supp_auth2[dat$qq1A=="1"] <- 1 
dat$supp_auth2[dat$qq1A=="2"] <- 2
dat$supp_auth2[dat$qq1A=="3"] <- 3
dat$supp_auth2[dat$qq1A=="4"] <- 4
dat$supp_auth2[dat$qq1A=="88"] <- NA
dat$supp_auth2[dat$qq1A=="99"] <- NA
table(dat$supp_auth2)

dat$supp_auth <- rep(NA, nrow(dat))
dat$supp_auth[dat$qq1A=="1"] <- 1 
dat$supp_auth[dat$qq1A=="2"] <- 2
dat$supp_auth[dat$qq1A=="3"] <- 4
dat$supp_auth[dat$qq1A=="4"] <- 5
dat$supp_auth[dat$qq1A=="88"] <- 3
dat$supp_auth[dat$qq1A=="99"] <- 3
table(dat$supp_auth)

#Arrests 
dat$supp_arrest2 <- rep(NA, nrow(dat))
dat$supp_arrest2[dat$qq1C=="1"] <- 1 
dat$supp_arrest2[dat$qq1C=="2"] <- 2
dat$supp_arrest2[dat$qq1C=="3"] <- 3
dat$supp_arrest2[dat$qq1C=="4"] <- 4
dat$supp_arrest2[dat$qq1C=="88"] <- NA
dat$supp_arrest2[dat$qq1C=="99"] <- NA
table(dat$supp_arrest2)

dat$supp_arrest <- rep(NA, nrow(dat))
dat$supp_arrest[dat$qq1C=="1"] <- 1 
dat$supp_arrest[dat$qq1C=="2"] <- 2
dat$supp_arrest[dat$qq1C=="3"] <- 4
dat$supp_arrest[dat$qq1C=="4"] <- 5
dat$supp_arrest[dat$qq1C=="88"] <- 3
dat$supp_arrest[dat$qq1C=="99"] <- 3
table(dat$supp_arrest)

#Demonstrators 
dat$supp_dem2 <- rep(NA, nrow(dat))
dat$supp_dem2[dat$qq1B=="1"] <- 1 
dat$supp_dem2[dat$qq1B=="2"] <- 2
dat$supp_dem2[dat$qq1B=="3"] <- 3
dat$supp_dem2[dat$qq1B=="4"] <- 4
dat$supp_dem2[dat$qq1B=="88"] <- NA
dat$supp_dem2[dat$qq1B=="99"] <- NA
table(dat$supp_dem2)

dat$supp_dem <- rep(NA, nrow(dat))
dat$supp_dem[dat$qq1B=="1"] <- 1 
dat$supp_dem[dat$qq1B=="2"] <- 2
dat$supp_dem[dat$qq1B=="3"] <- 4
dat$supp_dem[dat$qq1B=="4"] <- 5
dat$supp_dem[dat$qq1B=="88"] <- 3
dat$supp_dem[dat$qq1B=="99"] <- 3
table(dat$supp_dem)

dat$supp_dem3 <- rep(NA, nrow(dat))
dat$supp_dem3[dat$qq1B=="1"] <- 0 
dat$supp_dem3[dat$qq1B=="2"] <- 0
dat$supp_dem3[dat$qq1B=="3"] <- 1
dat$supp_dem3[dat$qq1B=="4"] <- 1
dat$supp_dem3[dat$qq1B=="88"] <- 0
dat$supp_dem3[dat$qq1B=="99"] <- 0
table(dat$supp_dem3)

dat$supp_dem4 <- rep(NA, nrow(dat))
dat$supp_dem4[dat$qq1B=="1"] <- 0 
dat$supp_dem4[dat$qq1B=="2"] <- 0
dat$supp_dem4[dat$qq1B=="3"] <- 1
dat$supp_dem4[dat$qq1B=="4"] <- 1
dat$supp_dem4[dat$qq1B=="88"] <- NA
dat$supp_dem4[dat$qq1B=="99"] <- NA
table(dat$supp_dem4)

dat$missing <- ifelse(dat$qq1B == "88" 
                      | dat$qq1B == "99", 1, 0)

#Difference in support, authorities, demonstrators 
dat$diffsupp2 <- rep(NA, nrow(dat))
dat$diffsupp2 <- (dat$supp_auth2 -dat$supp_dem2)
table(dat$diffsupp2)

#Support protests 
dat$part_dummy <- ifelse(dat$qq2 == "1" 
                         | dat$qq2 == "2", 1, 0)
table(dat$part_dummy)

table(dat$qq2)
dat$part_dummy2 <- rep(NA, nrow(dat))
dat$part_dummy2[dat$qq2=="1"] <- 1 
dat$part_dummy2[dat$qq2=="2"] <- 1
dat$part_dummy2[dat$qq2=="3"] <- 0
dat$part_dummy2[dat$qq2=="4"] <- 0
dat$part_dummy2[dat$qq2=="9"] <- NA
table(dat$part_dummy2)

#Normative Support for the Law  
dat$legal_concerns2 <- rep(NA, nrow(dat))
dat$legal_concerns2[dat$qI3=="1"] <- 1 
dat$legal_concerns2[dat$qI3=="2"] <- 2
dat$legal_concerns2[dat$qI3=="3"] <- 3
dat$legal_concerns2[dat$qI3=="4"] <- 4
dat$legal_concerns2[dat$qI3=="5"] <- 5
dat$legal_concerns2[dat$qI3=="88"] <- NA
dat$legal_concerns2[dat$qI3=="99"] <- NA
table(dat$legal_concerns2)

dat$legal_concerns <- rep(NA, nrow(dat))
dat$legal_concerns[dat$qI3=="1"] <- 1 
dat$legal_concerns[dat$qI3=="2"] <- 2
dat$legal_concerns[dat$qI3=="3"] <- 3
dat$legal_concerns[dat$qI3=="4"] <- 4
dat$legal_concerns[dat$qI3=="5"] <- 5
dat$legal_concerns[dat$qI3=="88"] <- 3
dat$legal_concerns[dat$qI3=="99"] <- 3
table(dat$legal_concerns)

#Support for Unauthorized Tactics   
dat$unauth_acc <- ifelse(dat$q19b == "1" 
                         | dat$q19b == "2", 1, 0)
table(dat$unauth_acc)

#Opposition Approval    
dat$approve_zyug <- ifelse(dat$qn1a == "1", 1, 0)
dat$approve_zhir <- ifelse(dat$qn1b == "1", 1, 0)
dat$approve_nav <- ifelse(dat$qn1c == "1", 1, 0)

dat$app_opp <- ifelse(dat$approve_zyug == 1 | dat$approve_zhir==1 | dat$approve_nav == 1, 1, 0) #higher edu only and those whose most recent occupation was an MC occupation and students
